home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Superbase 4 ser 12C00584^1.adf
/
Trading
/
REPDEM.SBP
< prev
next >
Wrap
Text File
|
1991-03-13
|
3KB
|
79 lines
SBP
ÿ½ REPDEM
ÿ½ You can use the Maximize
ÿ½ up arrow to bring the program
ÿ½ editor window to full screen
ÿ½ size, and the vertical scroll
ÿ½ bar to view the entire program.
ÿ½ With the exceptions noted below, the following DML program code
ÿ½ is generated automatically when you save the report form described
ÿ½ in the Form Designer section of the Trial Pack booklet. The
ÿ½ exceptions are the addition of these REM statements, the addition
ÿ½ of the NUMBASE command, and the removal of the path from the
ÿ½ filename in the OPEN FILE command.
ÿ²"z-,9999999.00"
ÿ½ The ? command prints numeric values according to the format
ÿ½ specified in the NUMBASE command. NUMBASE may be re-set by other
ÿ½ programs or using the Set Number Format menu option. It is set here
ÿ½ to the format required for printing the values in this report.
ÿ´ÿ"CLIENTS"
ÿ½ By default, the Report Generator inserts a full pathname into the
ÿ½ OPEN FILE command. In the Trial Pack reports, this has been edited
ÿ½ out, so that the OPEN FILE commands always refer to files in the
ÿ½ current directory.
ÿÂ"Report to Printer?","",134,a%
ÿ½ This is a REQUEST type 134. It displays a Windows-style ? dialog
ÿ½ with three options, Yes, No and Cancel. The default option in type
ÿ½ 134 is No. The variable a% returns the following values:
ÿ½ Yes = 1, No = 2, Cancel = 0.
ÿ¡a%ÿ0ÿpÿÿ^ÿ¡a%ÿ1ÿpÿ¹;
ÿ½ If the response to the dialog is Cancel, this statement terminates
ÿ½ the program. If the response is Yes, then it executes a PRINT ;
ÿ½ which re-directs output to the printer. Otherwise output remains
ÿ½ directed to the display.
ÿÁNet_Due.CLIENTS
ÿ½ This line specifies the fields on which report functions will
ÿ½ operate for the report as a whole, in this case Net_Due.
ÿ}ÿÁ
ÿ{
ÿ{@1;"Total Due:";@61;&15ÿlNet_Due.CLIENTS
ÿ{
ÿÿÁ
ÿ½ The AFTER REPORT marks the start of the AFTER REPORT section. This
ÿ½ includes a ? blank line before and after the report SUM for the
ÿ½ Net_Due. This SUM is printed starting at print position 61 for
ÿ½ a length of up to 15 characters, preceded by some text at print
ÿ½ position 1. END REPORT marks the end of an AFTER REPORT or BEFORE
ÿ½ REPORT section.
ÿ
ÿ{@30;"Amounts Due Report"
ÿ{
ÿÿ
ÿ½ The HEADING command marks the sart of a HEADING section. This prints
ÿ½ the text "Amounts Due Report" starting at print position 30, followed
ÿ½ by a ? blank line. END HEADING marks the end of this section.
ÿÉ@1;&29Client.CLIENTS;@31;&29Location.CLIENTS;@61;&13Net_Due.CLIENTS
ÿ½ The SELECT command is used to define the DML equivalent of the
ÿ½ Fields section of a Query. In this SELECT command you can see the
ÿ½ three fields you positioned in the Report Generator SELECT band,
ÿ½ each with its @ start position and & length.